home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / general / File.st < prev    next >
Encoding:
Text File  |  2004-01-31  |  767 b   |  48 lines
  1. Class File :SequenceableCollection
  2. [
  3.    modeCharacter
  4.       <primitive 133 self 0>
  5. |
  6.    modeInteger
  7.       <primitive 133 self 2>
  8. |
  9.    modeString
  10.       <primitive 133 self 1>
  11. |
  12.    at: aPosition
  13.       <primitive 135 self aPosition>.
  14.       ^ self read
  15. |
  16.    at: aPosition put: anObject
  17.       <primitive 135 self aPosition>.
  18.       ^ self write: anObject
  19. |
  20.    currentKey
  21.       ^ <primitive 136 self>
  22. |
  23.    first
  24.       ^ self at: 0
  25. |
  26.    next
  27.       ^ self read
  28. |
  29.    open: aName
  30.       <primitive 130 self aName 'r' >
  31. |
  32.    open: aName for: opType
  33.       <primitive 130 self aName opType >
  34. |
  35.    close
  36.       <primitive 139 self>.
  37.       ^ nil
  38. |
  39.    read
  40.       ^ <primitive 131 self>
  41. |
  42.    size
  43.       ^ <primitive 134 self>
  44. |
  45.    write: anObject
  46.       ^ <primitive 132 self anObject>
  47. ]
  48.